RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE find ( IDENT = 'v04-000' 

BLISS320, ADDRESSING _MODE (EXTERNAL = =_LONG_RELATIVE 

NONEXTERNAL = LONG-RELATIVES) 
= 


Ssss 


ojo fofofololeloleleleleleloleleloleleloleoleloleloleo! 


BEGIN 


Lal aiiaLgisaalnineabiaensAdahaeapkdoneiaanaieataensennnbaatennnne 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
a 
® 
® 
: ® 
!® THIS SOFTWARE IS pyri suee UNDER A LICENSE AND MAY BE USED AND COPIED * 
t* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICENSe AND WITH THE * 
!* INCLUSION OF THe ABOVE oe okie NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 

: ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t® AND SHOULD NOT BE CONSTRUED AS A COMMIT * 
't CORPORATION. * 
® 

® 

® 

® 

® 

am 


BJE 
OMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RMN SS SS SS SS QO OO OOOO 
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SOCoooooooooooooooooooo 


Lee RARER ARATE AEE EAE R ERAS 
i 


i 

i 

i ABSTRACT: Uses a binary search to look up a keyword. 
ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: May, 1978 
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lee 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
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; $ rs ! RSBTTL "Revision History’ 

; 43 4g | i MODIFIED BY: 

3; «65 44 1 002 REROO002 Ron Randall 07-Mar-1983 

a+! 45 1! Global edit of all modules. Updated module names, idents, 
3 th of ! copyright dates. Changed require files to BLISS library. 
: 49 048 1 i-- 

; 049 1 


OO 
ES SL SS 


sep-1984 VAX=11_BLiss-32_v4.0-74 
iis wSEh-1984 19:06:16 DISKSVMEMASTERSCRUNOFF “SRCIFIND.BLI:1@%* (33 


za=< 


Module Level Declarations 


; EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 
TPROBE; 


3 ¢ 9 } ZSBTTL ‘Module Level Declarations’ 

: $54 ; 1! 

‘ee ; TABLE OF CONTENTS: 

: ? 085 | INCLUDE FILES: 

3 08? | LIBRARY *NXPORT: KPORT*; ' XPORT Libra 

3 o 189 ! REQUIRE ‘REQ:RNODEF' ' RUNOFF wartane definitions 
: 6 u 0190 1 SIF 

_ U 191 1 LIBR 

: 8s 198 | LIBRARY *REQ:DSRLIB'; ! DSR BLISS Lib 
oe biog | eS de 
; 0195 1 

: 196 1! 

; 019 1 

; 198 1 

: 0199 1 

; 0200 7 

: 0201 1 
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| 
DSRPLUS THEN 
ARY "REQ:DPLLIB’; ! DSRPLUS BLISS Library 
| 
| 
| 
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3 ? ¢ ! GLOBAL ROUTINE FIND (KEY, SIZE, LIST) = : 
: og 4 1 t44 
: 4 9 } : FUNCTIONAL DESCRIPTION: | : 
: 80 oF 1/ Searches LIST in an attempt to recognize KEY. | : 
: + 38 ! A binary search algorithm is used. : 
; 58 0210 1 | FORMAL PARAMETERS: | 
; 85 \ 1 / KEY is the word that is to be identified; SIZE is its Length. | 

: Hy \? ! } LIST is a List of keywords, as defined in the module LP1. 

: 88 0 15 { IMPLICIT INPUTS: None 

: 30 0 17 | IMPLICIT OUTPUTS: None 

ma : 19 1! ROUTINE VALUE: 

3 +, 8 y : COMPLETION CODES: 

: 95 02 ¢ 1} If KEY is recognized. the address of the corresponding 

3 39 8 7 : entry in LIST 1s returned. Otherwise, zero is returned. 

: 98 ss | SIDE EFFECTS: None 

oo to. 

: 10 0229 P 

$ 198 Oe 0 § LIST : REF VECTOR; 

3; 6104 0231 

: 105 0252 3 LOCAL 

: 106 023 RESULT, 

; 19 6 3¢ $ BoTton 

> 109 0236 ; HALF _OF RANGE, 

3 149 Osee MIDPOINT; 

: Ng eat: $ TOP = 0; 

oo 0240 BOTTOM = .LIST C-1]) - 1; 

; 61146 bSe4 

: 4 8 ri} WHILE 1 DO 

: 117 ere HALF_OF RANGE = (.BOTTOM - .TOP + 1)/2; 

; 118 8 45 MIDPOINT = .TOP + «HALF _OF NGE; 

; 119 46 RESULT = TPROBE (.KEY, SIZE, .LIST C.MIDPOINTI); 

: 132 6 48 CASE RESULT FROM 0 TO 3 OF 

: 1 50 

s 126 51 CFOUND) : 

3 : H 26 RETURN .LIST C.MIDPOINT); | 

: 127 54 (GIVE_UP) : | 

3 : 3 55 RETURN 0; 

: 130 3§ 

: 151 58 4 


CTRY_ABOVE) : 
BEGIN 
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ce? 59 4 : 
; § é 4 IF MIDPOINT EQL .TOP ; 
: : 6g 4 RETURN 0 ; 
‘<4 64 4 BOTTOM = .MIDPOINT - 1; : 
: 138 65 = : 
3 173 28 ; END; : 
: 141 68 CTRY_BELOW) : ; 
3 be $2 : BEGIN : 
> 144 i 4 IF . MIDPOINT EQL .BOTTOM ; 
> 145 re 4 THEN : 
: 149 8 te d IF gam , 
: 148 0275 4 TOP = .MIDPOINT + 1; : 
: 149 0276 4 : 
: 18 8 as TES — 
ARG ED bo Fee be : 
: 154 0281 : 
: 155 0282 1 END; 'End of FIND 
.TITLE FIND 
“IDENT \V04-000\ 
.EXTRN TPROBE 
.PSECT S$CODE$,NOWRT,2 
007¢ 00000 .ENTRY FIND, Save R2,R3,R4,R5,R6 : 9202 
55 D4 00002 CLRL ~—svTOP : 0239 
54 0c AC DO 00004 MOVL. LIST, R4 + 0240 
53 FC AG 01 C3 00008 SUBL3. #1, -4(R4), BOTTOM : 
51 53 28 C 9000p 1$ SuBL Top, BOTTOM, R1 ; 0244 
56 51 02 ¢ 0013 DIVL3 #2, R1, HALF_OF_RANGE : 
52 55 36 C1 0001 ADDL3 HALF_OF_RANGE, TOP, MIDPOINT : 0245 
6442 DD 0001B PUSHL  (R4)CMIBPOINTS : 0246 
00000006 FF oa 0025 Mats | SB. TPROBE ; 
03 50 93 CF 003 CASEL RES LT, #0, #3 > 0248 
0018 000D 0008 001D 00020 2$: WORD g§- 3.- ; 
4$-2$.- 
50 6442 pO 00035 38: — MovL (RA) EMIDPOINT, RO ; 0252 
55 52 D4 8 A 4$: CPL " DPOINT, TOP : 0260 
53 FFA 9 8 MOVAC -1(R2), BOTTOM > 0264 
¢ 1 : 4 BRB 1$ : : 48 
53 D1 00045 5s: CMPL MIDPOINT, BOTTOM : 0271 
05 12 0004 BNEQ 7 3 
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3; Size: 83 a + 0 data bytes 
: : 0:14.3 

3; Lines/CPU Min: 3198 

3 Lexemes/CPU-Min: 9438 

3 re | Used: 43 pages 

: 4 


; Compi ion Complete 


50 D4 QO0GA 6S: CLRL RO : 0273, : 

Be 4C RET : “ | ; 

55 01 A2 f 4D 7$: MOVAB 1(R2), TOP : 0373 | ; 

BA 11 00051 BRB t«dSS : 0242 | ; 

; Routine Size: 83 bytes, Routine Base: S$CODE$ + 0000 | ; 
: 133 0364 1 END ‘End of modul : 
; 'End o : 
; 158 85 0 ELUDOM smn 
; PSECT SUMMARY ; 
3 Name Bytes Attributes : 
; SCODES 83 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
H Library Statistics ; 
TS eed all) ie ae Symbols -------- Pages Processing : 
3 File Total Loaded Percent Mapped Time ; 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 : 
; 78255SDUA28: (RUNOFF .SRCIDSRL 18, L32;1 1248 4 0 86 00:00.3 ; 
; COMMAND QUALIFIERS ; 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:F IND/OBJ=OBJ$:F IND MSRC$:F IND/UPDATE=(ENHS$:F IND) | : 
3 

3 

Run Time | : 

| 

: 

; 

weg} 
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